Loading Package…
library(dppbar)
## Warning in as.POSIXlt.POSIXct(Sys.time()): unknown timezone 'zone/tz/2019b.
## 1.0/zoneinfo/Asia/Shanghai'
Loading Dataset…
To fully illustrate the usage of package to accomplish this task, we use two datasets of different structure. They are “Chinese Real Estate Industry Companies’ Financial Charts(2007-2016)” and “Some Macroeconomic Data of China(2008-2016)”. Head lines of each dataset is shown below.
Chinese Real Estate Industry Companies’ Financial Charts(2007-2016)
## Year 证券代码 证券简称 season roa
## 1 2007 000002.SZ 万科A 2 8.18
## 2 2008 000002.SZ 万科A 2 6.66
## 3 2009 000002.SZ 万科A 2 7.37
## 4 2010 000002.SZ 万科A 2 8.86
## 5 2011 000002.SZ 万科A 2 8.09
Some Macroeconomic Data of China(2008-2016)
## year ROE CPI PPI GDP
## 1 2008 -0.4826 105.9 106.9 319515.5
## 2 2009 0.2078 99.3 94.6 349081.4
## 3 2010 0.2028 103.3 105.5 413030.3
## 4 2011 0.3533 105.4 106.0 489300.6
## 5 2012 0.2597 102.6 98.3 540367.4
bar_plot(dataframe=estate_fin_charts,ctg.idx = 'Year',num.idx = 'income',
condition.idx = '证券简称',criteria=2016,top_N=10,
colors=brewer.pal(12,'Set3'),xaxis_name='年份',yaxis_name='营业收入(亿元)',
title='2016年营业收入前12名房地产企业历年营收变化',
paper_bgcolor='#ccece6',margin=list(t=36,l=24))
bar_plot(dataframe=macro_data_chn,ctg.idx='year',num.idx=c(9:12),
criteria = 2016,colors = brewer.pal(4,'Set1'),
xaxis_name = '年份',yaxis_name = '商品价格(元/吨)',
title='一些大宗商品的历年价格变化',
paper_bgcolor='#ccece6',margin=list(t=36,l=24))